PC WORLD Online - Word ▌τin Faydal² Makrolar

Rehber Yaratmak

A■a≡²da listesi g÷rⁿlen makro, Word iτinde τal²■²rken bilgisayar²n²z²n sabit diskinde istedi≡iniz bir yerde bir altrehber yaratman²z² sa≡lar. B÷ylelikle, ÷rne≡in yeni bir belge yazd²ktan sonra bu belgeyi yeni bir rehbere kaydetmek istiyorsan²z, bu makroyu kullanabilirsiniz. Bu makroyu ÷zelle■tirerek diyalog kutular²n²n kullan²m²n² ilerletebilirsiniz.

makro 3: rehberyarat

Sub MAIN
Begin Dialog UserDialog 554, 90, "rehber yarat"
	Text 10, 6, 91, 13, "rehberi girin", .Text1
	TextBox 12, 22, 516, 18, .TextBox1	'hebelek
	OKButton 32, 47, 88, 21
	CancelButton 144, 46, 88, 21
End Dialog

Dim dlg As UserDialog
GetCurValues dlg
x = Dialog(dlg)

Print x
If x = 0 Then
	Print "komut tamamlandi"
Else
	Print "istediginiz gibi, " + dlg.TextBox1 + " adl² rehber yarat²l²yor"
	MkDir dlg.TextBox1
EndIf
End Sub